home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / delete_batch < prev    next >
Encoding:
Text File  |  1995-05-05  |  2.6 KB  |  117 lines
  1. ;
  2. ;    Name: DELETE BATCH
  3. ;
  4. ;    Optionen: /Noconfirm        ; Keine Sicherheitsabfrage
  5. ;
  6. ;    $VER: 2.00 / 29-01-1995
  7. ;
  8. ;    Scriptfile zum Loeschen der User-Batches.
  9. ;
  10. ;    Benoetigte AMMS-Befehle :
  11. ;    -------------------------
  12. ;    break off
  13. ;    check user
  14. ;    disk edit
  15. ;    echo
  16. ;    eod
  17. ;    extern
  18. ;    if
  19. ;    on error
  20. ;    parse
  21. ;
  22. ;    Benoetigte Amiga-Dos-Befehle :
  23. ;    ------------------------------
  24. ;    delete
  25. ;
  26. ;    Variablen initialisieren :
  27. ;    --------------------------
  28. batch=""                ; Anfangsbuchstabe der Zusatzbatches
  29. filenameend=".bat"            ; Filenamenende der Zusatzbatches
  30. maxbatches=5                ; Max. Anzahl der Zusatzbatches
  31. file="login"                ; Name der Userbatch (default: login)
  32. user="'{name}'"                ; Username, dessen Batch editiert wird
  33.  
  34. ;    Programm :
  35. ;    ----------
  36.  
  37. ; Abbruch abfangen
  38.  
  39. _break off                ; Abbruchtasten sperren
  40.  
  41. ; Parameter auswerten
  42.  
  43. p2=""                    ; Username initialisieren
  44. _if os != "T" THEN _parse "Delete Batch" p0 N p1 ; User-Parameter auswerten
  45. _if os == "T" THEN _parse "Delete Batch" p0 N p1 N p2 ; Sysop-Para auswerten
  46.  
  47. _if "'p1''p2'" == "" then _goto DELETE    ; Wenn keine Para, Loginbatch starten
  48.  
  49. ; Ueberpruefe, ob 1. Parameter eine Batch
  50.  
  51. i=maxbatches+1                ; Schleifenzaehler initialisieren
  52. LOOP:
  53. i=i-1                    ; Schleifenzaehler erniedrigen
  54. _if/i i < 1 then _goto NO_BATCH        ; Kein Batchname gefunden -> NoBatch
  55. _if p1 != "'batch''i'" then _goto LOOP    ; Batchname korrekt ? Nein -> Batch
  56.  
  57. file="'batch''i''filenameend'"        ; Batchfilenamen erzeugen
  58.  
  59. ; Username ueberpruefen
  60.  
  61. CHECK_NAME:
  62. _if p2 == "" then _goto DELETE        ; Kein Username-> eigene Batch loeschen
  63. _if os == "F" then _goto UNKNOWN_BATCH    ; Kein Sysop -> unbekannte Batch
  64. _check user "'p2'" UNKNOWN_USER        ; User unbekannt -> Fehler
  65. user=p2                    ; Username vom Parameter uebernehmen
  66.  
  67. ; Datei loeschen
  68.  
  69. DELETE:
  70. _if o1 == "T" then _goto DELETE_BATCH
  71. _gosub LOADTEXT
  72. _menu T_Question -
  73.  KEY_NO END -
  74.  KEY_YES DELETE_BATCH
  75.  
  76. DELETE_BATCH:
  77. _extern/q delete "mbudir:'user'/'file'" quiet ; File loeschen
  78.  
  79. ; Ende
  80.  
  81. END:
  82. _eod
  83.  
  84. ; Wenn keine Batchdatei gefunden, dann nach Name pruefen
  85.  
  86. NO_BATCH:
  87. _if p2 != "" then _goto UNKNOWN_BATCH    ; 2.Para vorhanden -> unbekannte Batch
  88. p2=p1                    ; 2. Para = 1. Para
  89. _goto CHECK_NAME            ; Nach Name pruefen
  90.  
  91. ; Fehlerbehandlungsroutinen
  92.  
  93. UNKNOWN_BATCH:
  94. _gosub LOADTEXT
  95. _if/i maxbatches != 0 then _goto UNKNOWN_BATCH_1
  96. _echo T_NoBatch
  97. _eod
  98.  
  99. UNKNOWN_BATCH_1:
  100. _echo T_UnknownBatch
  101. _eod
  102.  
  103. UNKNOWN_USER:
  104. _gosub LOADTEXT
  105. _echo T_UnknownUser
  106. _eod
  107.  
  108. ; Unterroutine: Sprachspezifische Texte laden
  109.  
  110. LOADTEXT:
  111. LANG={DEFLANGUAGE}
  112. _check file "mbbatch:com/'{ALANGUAGE}'/delete_batch.bat" GETTEXT
  113. LANG={ALANGUAGE}
  114. GETTEXT:
  115. _disk execute/keep "mbbatch:com/'LANG'/delete_batch.bat"
  116. _return
  117.